home *** CD-ROM | disk | FTP | other *** search
/ Aminet 22 / Aminet 22 (1997)(GTI - Schatztruhe)[!][Dec 1997].iso / Aminet / util / cdity / mexch127.lha / magic-exchange / install / arexx / MagicCx.rexx next >
OS/2 REXX Batch file  |  1997-03-01  |  2KB  |  83 lines
  1. /* $VER: Example Script for Magic-Exchange V1.0
  2.  Simple Magic-Exchange Demo - ARexxScript
  3.  
  4.  © 1997 by I.Musquinier & Michael Einemann
  5.  
  6.  Syntax: rx MagicCx.rexx CDity action
  7.  
  8. */
  9.  
  10. options results
  11. /* trace results */
  12. arg Commodity action
  13. compress(action)
  14.  
  15. if action="INACTIVE" then action="CX_Deactivate"
  16. if action="ACTIVE" then action="CX_Activate"
  17. if action="REMOVE" then action="CX_Remove"
  18.  
  19. call address() /* looking for the port from where the script was startet */
  20. port=result /* save portname for output */
  21.  
  22. if open(file,'ENV:mxchg',r) then do /* read Enviroment Variable to get information */
  23.  path=readLn(file)                 /* where the hell the list with CDities goes */
  24.  close(file)
  25. end
  26.  
  27. address value 'MXCHG' /* change address to MagicExchanges port */
  28.  
  29. CX_GetList /* send Command to MagigExchange to get a list of running CDities */
  30.  
  31. address command wait "1 secs"
  32.  
  33. address
  34.  
  35. if open(cdity,''path'',r) then do /* open the list */
  36.  
  37. Do i=1 until eof(cdity)
  38.   Cdty.i=upper(readln(cdity)) /* read the list and put CDities into variables */
  39.    if cdty.i=commodity then call manipulation /* if wanted CDity found then call label */
  40.    else nop
  41. end
  42.  
  43.  
  44. say Commodity 'was not found in current list of Running Commodities. :-('
  45.  
  46. end
  47. exit
  48.  
  49.  
  50.  
  51. manipulation:
  52.  
  53. address value 'MXCHG' /* change address to MagicExchanges port */
  54.  
  55. CX_Select commodity /* select the Wanted CDity */
  56. address command wait "2 secs" /* a little pause must be there, do not remove this line! */
  57. action /* make action to CDity */
  58.  
  59. address /* change address e.g. to Shell for output */
  60.  
  61. Say "Operation on" commodity "done."/* output this to e.g. Shell */
  62. exit
  63.  
  64. /*
  65.  
  66. CX_Select   NAME/A  < Attach a CDity e.g. me_selectcx 'magic-exchange'
  67.  
  68. CX_GetList          < saves a list with running CDities  to the Path You specified in Tooltypes
  69.  
  70. CX_Remove           < removes a CDity that was attached by CX_Select
  71.  
  72. CX_Deactivate       < Deactivate a CDity that was attached by CX_Select
  73.  
  74. CX_Activate         < Activate CDity that was attached by CX_Select
  75.  
  76. CX_Priority  PRIO/A < Set a Priority for an commoditie
  77.  
  78. CX_RemoveAll        < Removes all commodities
  79.  
  80. */
  81.  
  82. /* This Scipt is part of Magic-Exchange. Do not Eat it! :-) */
  83.